home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / gest_cpt.sha < prev    next >
Encoding:
Text File  |  1994-03-01  |  775 b   |  20 lines
  1. 10 REM GESTION DE COMPTE SIMPLE
  2. 20 REM (C) WILLYTEL 89
  3. 30 REM 24H/7H AU 62.93.74.05
  4. 40 REM ATTENTION CE PROGAMME UTILISE LA Function Memory AFIN DE GARDER LE SOLDE EN MEMOIRE.
  5. 50 REM N'UTILISEZ DONC PAS CELLE-CI AU RISQUE DE PERDRE VOTRE SOLDE !!!
  6. 60 DIM SO(9):SOLDE=0:SET F2
  7. 70 FOR X=1024TO1033
  8. 80 I=X-1024:SO(I)=PEEK(X)
  9. 90 NEXT X
  10. 100 FOR I=0 TO 8
  11. 110 SOLDE=SO(I)*100^(I)+SOLDE
  12. 120 NEXT I
  13. 130 SOLDE=SOLDE/100*(-2*SO(9)+1)
  14. 140 CLS:LOCATE0,0:PRINT "SOLDE:";SOLDE;:LOCATE0,1:PRINT "OPERATION:";:INPUT@(9);OP
  15. 150 IF ABS(SOLDE+OP)>1E10 THEN PRINT "DEPASSEMENT CAPACITE !!!":GOTO 140
  16. 160 SOLDE=SOLDE+OP:OP=0
  17. 170 IF SOLDE<0 THEN POKE 1033,1
  18. 180 IF SOLDE>0 THEN POKE 1033,0
  19. 190 FOR I=1024 TO 1032:A=INT(FRAC(ABS(SOLDE)/100^(I-1024))*100):POKE I,A:NEXT I:GOTO 140
  20.